home *** CD-ROM | disk | FTP | other *** search
/ PC World 2002 March / PCWorld_2002-03_cd.bin / Software / TemaCD / xteq / setup.exe / {app} / plugins / XQ X-Mouse Options 1.xpl < prev    next >
Text File  |  2001-04-12  |  2KB  |  62 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="2"
  4. "UIPATH"="Hardware\Mouse\X-Mouse"
  5. "NAME"="X-Mouse Options"
  6. "OSVERSION"="111001"
  7. "VERSION"="3.01"
  8. "LANGUAGE"="VBScript"
  9. "TEXT 1"="Activate window when mouse passes it (X Windows Style)"
  10. "TEXT 2"="Bring active window to foreground if XMouse activates it"
  11. "DESCRIPTION 1"="If the first option is activated, a window is activated a soon as the mouse pointer is over it."
  12. "DESCRIPTION 2"="The first option should ONLY be enabled, if "Snap To Default Button" is disabled, OR if the second option is enabled also. Else the results might be very "strange"!
  13. "AUTHOR"="Xteq Systems"
  14. "CONTACTURL"="http://www.xteq.com"
  15. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  16. "COMMENT 1"=" "
  17. "COMMENT 2"="Thanks also to CptSiskoX for the bug-report and the X-Mouse setting!"
  18.  
  19.  
  20. sP="HKCU\Control Panel\Mouse\"
  21. v1="ActiveWindowTracking" 'DWord
  22.  
  23. sFILE="win.ini"
  24. sSEC="XMouse"
  25. sV1b="BringWindowToTop"
  26.  
  27.  
  28. Sub Plugin_Initialize 
  29.  i=RegReadValue(sp & v1)
  30.  if i=1 then 
  31.     Call SetUIElement(1,true)
  32.  end if
  33.  
  34.  i=IniReadValue(sFILE,sSEC,sV1b)
  35.  if i=1 then 
  36.     Call SetUIElement(2,true)
  37.  end if
  38. End Sub
  39.  
  40. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  41.  b=GetUIElement(1)
  42.  if b=true then
  43.     Call RegWriteValue(sp & v1,1,2)
  44.  else
  45.     Call RegWriteValue(sp & v1,0,2)
  46.  end if
  47.  
  48.  
  49.  b=GetUIElement(2)
  50.  if b=true then
  51.     Call IniWriteValue(sFILE,sSEC,sV1b,1)
  52.  else
  53.     Call IniWriteValue(sFILE,sSEC,sV1b,0)
  54.  end if
  55.  
  56.  
  57.  Call IndicateSettingChange()
  58. End Sub
  59.  
  60. Sub Plugin_Terminate 
  61. End Sub
  62.